home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO6.DMS / in.adf / Procedures / Screen_FX / _Slide.AMOS / _Slide.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-29  |  1010 b   |  30 lines
  1. '******************************************************* 
  2. '*                                                     * 
  3. '* AMOS Professional Procedure Library                 * 
  4. '*                                                     * 
  5. '* Procedure: Slide Screen into View Routine           * 
  6. '*                                                     * 
  7. '*    Author: John Miaoulis                            * 
  8. '*                                                     * 
  9. '******************************************************* 
  10. _SLIDE_INIT["amospro_Examples:iff/logo.iff",3]
  11.  
  12. Procedure _SLIDE_INIT[A$,S]
  13.    Screen Open 0,320,256,32,Lowres
  14.    ' open screen
  15.    Hide : Flash Off 
  16.    Load Iff A$
  17.    ' load the pic 
  18.    Screen Display 0,,312,,0
  19.    ' move screen display to hide screen and reduce size of screen 
  20.    For X=312 To 31 Step -S
  21.       Screen Display 0,,(X/2)+30,,312-X
  22.       ' slide pic up+inc size
  23.       Wait Vbl 
  24.    Next 
  25.    Wait(100*S)
  26.    ' wait speed*100 
  27.    Fade 5
  28.    ' fade at speed 5  
  29.    Wait 50
  30. End Proc